home *** CD-ROM | disk | FTP | other *** search
/ Sacred & Secular / Sacred and Secular.iso / pc / movies / shared.dir / 04843_Script_checkMeander < prev    next >
Text File  |  1996-04-03  |  1KB  |  55 lines

  1. global currentcast,meanderlist
  2.  
  3. global gMeanderlist, gMeanderIndex
  4. global musicon, narron
  5.  
  6. on checkMeander
  7.   if not (musicon or narron) then
  8.     --
  9.     --
  10.     -- Meandinger with the no sound options will show each photo for 10 seconds
  11.     --
  12.     if the timer <  60 * 10 then 
  13.       exit
  14.     end if
  15.   else  
  16.     if isQTPlaying() then
  17.       if the movieTime of sprite 48 < the stopTime of sprite 48 then
  18.         exit
  19.       end if
  20.     end if
  21.   end if
  22.   
  23.   if gMeanderIndex = 100 then 
  24.     set gMeanderIndex = 1
  25.   else
  26.     set gMeanderIndex = gMeanderIndex + 1  
  27.   end if
  28.   
  29.   set currentcast = getAt(gMeanderList, gMeanderIndex)
  30.   
  31.   
  32.   set y = "0" & (currentcast - 300)
  33.   set l = length(y)
  34.   set y = char l-1 to l of y  
  35.   
  36.   go to frame "FullPic" of movie (y & ".DIR")
  37.   
  38.   puppetSprite 7, 1
  39.   set the locH of sprite 7 = -640
  40.   
  41.   puppetSprite 3,1
  42.   --set the regpoint of cast y = point(0,0)
  43.   set the castnum of sprite 3 to 2
  44.   set the locV of sprite 3 = 0
  45.   set the locH of sprite 3 = 0
  46.   
  47.   if not (musicon or narron) then 
  48.     startTimer
  49.   else
  50.     playsndfile
  51.   end if
  52.   
  53.   go the frame
  54. end
  55.